unit undo;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils,Graphics,
  magic,ImageMagick;
type


  TMyOperationType=(mmPan,mmPolyLine,mmRectangle);

  { TMyOperation }

  TMyOperation = class
    private
      mBrushColor:TColor;
      mPenColor:TColor;
      points:array[1..2] of PointInfo;
    public
      constructor Create;
      procedure Draw(cv:TCanvas);overload;
      procedure Draw(mag:TMyMagic);overload;

  end;

  { TMyOperationsStack }

  TMyOperationsStack= class
   private
   public
     procedure Draw(cv:TCanvas);overload;
     procedure Draw(mag:TMyMagic);overload;
  end;

implementation

{ TMyOperationsStack }

procedure TMyOperationsStack.Draw(cv: TCanvas);
begin

end;

procedure TMyOperationsStack.Draw(mag: TMyMagic);
begin

end;

{ TMyOperation }

constructor TMyOperation.Create;
begin

end;

procedure TMyOperation.Draw(cv: TCanvas);
begin

end;

procedure TMyOperation.Draw(mag: TMyMagic);
begin

end;

end.

